home *** CD-ROM | disk | FTP | other *** search
/ Developer Helper 1: Phil & Dave's Excellent CD / Excellent CD HFS.raw / HyperCard / HyperCard 1.2.2 International / HyperCard Danish (DK-1.2.2) / HyperCard-stakke / Rejseregnskab / card_2971.txt < prev    next >
Text File  |  1989-01-03  |  5KB  |  271 lines
  1. -- card: 2971 from stack: in
  2. -- bmap block id: 0
  3. -- flags: 0000
  4. -- background id: 2664
  5. -- name: 
  6.  
  7.  
  8. -- part 1 (field)
  9. -- low flags: 00
  10. -- high flags: 4002
  11. -- rect: left=5 top=97 right=264 bottom=96
  12. -- title width / last selected line: 0
  13. -- icon id / first selected line: 0 / 0
  14. -- text alignment: 0
  15. -- font id: 3
  16. -- text size: 18
  17. -- style flags: 0
  18. -- line height: 30
  19. -- part name: 
  20.  
  21.  
  22. -- part 3 (field)
  23. -- low flags: 00
  24. -- high flags: 4002
  25. -- rect: left=95 top=97 right=264 bottom=163
  26. -- title width / last selected line: 0
  27. -- icon id / first selected line: 0 / 0
  28. -- text alignment: 65535
  29. -- font id: 3
  30. -- text size: 18
  31. -- style flags: 0
  32. -- line height: 30
  33. -- part name: 
  34.  
  35.  
  36. -- part 4 (field)
  37. -- low flags: 00
  38. -- high flags: 4002
  39. -- rect: left=162 top=97 right=264 bottom=230
  40. -- title width / last selected line: 0
  41. -- icon id / first selected line: 0 / 0
  42. -- text alignment: 65535
  43. -- font id: 3
  44. -- text size: 18
  45. -- style flags: 0
  46. -- line height: 30
  47. -- part name: 
  48.  
  49.  
  50. -- part 5 (field)
  51. -- low flags: 00
  52. -- high flags: 4002
  53. -- rect: left=229 top=97 right=264 bottom=297
  54. -- title width / last selected line: 0
  55. -- icon id / first selected line: 0 / 0
  56. -- text alignment: 1
  57. -- font id: 3
  58. -- text size: 18
  59. -- style flags: 0
  60. -- line height: 30
  61. -- part name: 
  62.  
  63.  
  64. -- part 6 (field)
  65. -- low flags: 00
  66. -- high flags: 4002
  67. -- rect: left=296 top=97 right=264 bottom=364
  68. -- title width / last selected line: 0
  69. -- icon id / first selected line: 0 / 0
  70. -- text alignment: 1
  71. -- font id: 3
  72. -- text size: 18
  73. -- style flags: 0
  74. -- line height: 30
  75. -- part name: 
  76.  
  77.  
  78. -- part 7 (field)
  79. -- low flags: 00
  80. -- high flags: 4002
  81. -- rect: left=363 top=97 right=264 bottom=432
  82. -- title width / last selected line: 0
  83. -- icon id / first selected line: 0 / 0
  84. -- text alignment: 1
  85. -- font id: 3
  86. -- text size: 18
  87. -- style flags: 0
  88. -- line height: 30
  89. -- part name: 
  90.  
  91.  
  92. -- part 8 (field)
  93. -- low flags: 00
  94. -- high flags: 4002
  95. -- rect: left=431 top=97 right=264 bottom=509
  96. -- title width / last selected line: 0
  97. -- icon id / first selected line: 0 / 0
  98. -- text alignment: 1
  99. -- font id: 3
  100. -- text size: 18
  101. -- style flags: 0
  102. -- line height: 30
  103. -- part name: 
  104.  
  105.  
  106. -- part 9 (button)
  107. -- low flags: 00
  108. -- high flags: A003
  109. -- rect: left=441 top=277 right=320 bottom=506
  110. -- title width / last selected line: 0
  111. -- icon id / first selected line: 0 / 0
  112. -- text alignment: 1
  113. -- font id: 0
  114. -- text size: 12
  115. -- style flags: 0
  116. -- line height: 16
  117. -- part name: Beregn
  118. ----- HyperTalk script -----
  119. on mouseUp
  120.   -- Init variables
  121.   set cursor to 4    --put up watch cursor to indicate waiting
  122.   set lockscreen to true  --so only final change is displayed (faster)
  123.   put 5 into numberOfRows
  124.   put 7 into numberOfColumns
  125.  
  126.   -- put 0s in total COLUMN at right
  127.   repeat with row = 2 to numberOfRows
  128.     put 0 into line row of card field numberOfColumns
  129.   end repeat
  130.  
  131.   --put 0s in total ROW on bottom
  132.   repeat with col = 2 to numberOfColumns+1
  133.     put 0 into line numberOfRows of card field col
  134.   end repeat
  135.  
  136.   -- Calculation of subtotals
  137.   repeat with row = 2 to numberOfRows-1  --add all entries of one row
  138.     repeat with col = 2 to numberOfColumns-1 --add each entry in a row
  139.       put line row of card field col into it --take item (row,col)
  140.       add it to line numberOfRows of card field col
  141.       add it to line row of card field numberOfColumns
  142.     end repeat
  143.   end repeat
  144.  
  145.   -- Calculation of grand total (only add up totals across bottom)
  146.   repeat with  col = 2 to numberOfColumns-1
  147.     add line numberOfRows of card field col to line numberOfRows of card field numberOfColumns
  148.   end repeat
  149.  
  150. end mouseUp
  151.  
  152.  
  153.  
  154.  
  155. -- part 10 (field)
  156. -- low flags: 01
  157. -- high flags: 2002
  158. -- rect: left=8 top=37 right=79 bottom=196
  159. -- title width / last selected line: 0
  160. -- icon id / first selected line: 0 / 0
  161. -- text alignment: 1
  162. -- font id: 3
  163. -- text size: 18
  164. -- style flags: 256
  165. -- line height: 30
  166. -- part name: 
  167.  
  168.  
  169. -- part 12 (field)
  170. -- low flags: 01
  171. -- high flags: 2002
  172. -- rect: left=197 top=37 right=79 bottom=511
  173. -- title width / last selected line: 0
  174. -- icon id / first selected line: 0 / 0
  175. -- text alignment: 0
  176. -- font id: 3
  177. -- text size: 18
  178. -- style flags: 0
  179. -- line height: 30
  180. -- part name: 
  181.  
  182.  
  183. -- part 13 (button)
  184. -- low flags: 00
  185. -- high flags: 2000
  186. -- rect: left=2 top=271 right=322 bottom=55
  187. -- title width / last selected line: 0
  188. -- icon id / first selected line: 20098 / 20098
  189. -- text alignment: 1
  190. -- font id: 0
  191. -- text size: 12
  192. -- style flags: 0
  193. -- line height: 16
  194. -- part name: 
  195. ----- HyperTalk script -----
  196. on mouseUp
  197.   go home
  198. end mouseUp
  199.  
  200.  
  201.  
  202. -- part contents for card part 1
  203. ----- text -----
  204.  
  205. Hotel
  206. Bil
  207. Mad
  208. TOTAL
  209.  
  210. -- part contents for card part 3
  211. ----- text -----
  212. Man
  213. 650
  214. 160
  215. 110
  216. 920
  217.  
  218. -- part contents for card part 4
  219. ----- text -----
  220. Tir
  221. 650
  222. 160
  223. 275
  224. 1085
  225.  
  226.  
  227. -- part contents for card part 5
  228. ----- text -----
  229. Ons
  230. 650
  231. 160
  232. 170
  233. 980
  234.  
  235. -- part contents for card part 6
  236. ----- text -----
  237. Tor
  238. 650
  239. 160
  240. 580
  241. 1390
  242.  
  243. -- part contents for card part 7
  244. ----- text -----
  245. Fre
  246. 650
  247. 160
  248. 252
  249. 1062
  250.  
  251. -- part contents for card part 8
  252. ----- text -----
  253. TOTAL
  254. 3250
  255. 800
  256. 1387
  257. 5437
  258.  
  259. 46
  260.  
  261. -- part contents for card part 10
  262. ----- text -----
  263. REJSEREGNSKAB
  264.  
  265.  
  266.  
  267. 0
  268.  
  269. -- part contents for card part 12
  270. ----- text -----
  271. Uge 50                              1988